home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8191 < prev    next >
Text File  |  1993-10-08  |  1KB  |  67 lines
  1. %!PS-Adobe-3.0 Query
  2. %%?BeginFeatureQuery: *LanguageLevel
  3. /languagelevel where
  4. {
  5. pop languagelevel dup 2 ge{(")print 3 string cvs print("\n)}{pop("1"\n)}ifelse
  6. }{
  7. ("1"\n)
  8. }ifelse
  9. print
  10. %%?EndFeatureQuery: Unknown
  11. %%?BeginFeatureQuery: *PSVersion
  12. statusdict begin
  13. ("\()print version print(\) )print revision 40 string cvs print("\n)print
  14. end
  15. %%?EndFeatureQuery: Unknown
  16. %%?BeginQuery: ADOSpooler
  17. 0 ==
  18. %%?EndQuery: spooler
  19. %%?BeginFeatureQuery: *?Resolution
  20. /mstr 40 string def
  21. initgraphics
  22. 72 0 dtransform
  23. dup mul exch dup mul add sqrt .25 add round
  24. cvi
  25. 0 72 dtransform
  26. dup mul exch dup mul add sqrt .25 add round
  27. cvi 2 copy eq
  28. {
  29. pop
  30. mstr cvs print
  31. }{
  32. exch
  33. mstr cvs print(x)print
  34. mstr cvs print
  35. }ifelse
  36. (dpi\n)print
  37. %%?EndFeatureQuery: Unknown
  38. %%?BeginQuery: ADOIsBinaryOK?
  39. (True\n)
  40. /currentdevparams where
  41. {
  42. pop
  43. [
  44. {
  45. currentsystemparams/CurInputDevice get
  46. currentdevparams
  47. }stopped
  48. {
  49. cleartomark 0 dict
  50. }{
  51. exch pop
  52. }ifelse
  53. dup/Filtering known
  54. {
  55. /Filtering get
  56. /None ne
  57. {pop(False\n)}if
  58. }{
  59. pop
  60. }ifelse
  61. }if
  62. print
  63. %%?EndQuery: Unknown
  64. %%?BeginFeatureQuery: *FreeVM
  65. (")print vmstatus exch sub 40 string cvs print("\n)print pop
  66. %%?EndFeatureQuery: Unknown
  67.